Voorbeeld van de eigenschap Count

Dit voorbeeld maakt gebruik van de eigenschap Count van het object Collection om te bepalen hoeveel herhalingen er nodig zijn om alle elementen van de collectie MyClasses te verwijderen. Wanneer collecties numeriek zijn ge∩ndexeerd, is de basis standaard 1. Aangezien collecties automatisch worden ge∩ndexeerd wanneer iets wordt verwijderd, verwijdert de volgende programmacode het eerste element bij elke uitvoering van de lus.

Dim Num, MyClasses
For Num = 1 To MyClasses.Count    ' Verwijdert naam uit collectie.
    MyClasses.Remove 1    ' Numerieke indexen van collecties beginnen standaard
Next    ' met 1.